home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / e2v.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-25  |  2KB  |  80 lines
  1. /*
  2. Author:        Alfonso Ranieri <alfier@iol.it>
  3. Desription:    Export to a Voyager hotlist
  4. Template:      KEY,USER/K
  5. Tipical usage: rx e2v >file
  6. */
  7.  
  8. call addlib("rmh.library",0,-30) then exit
  9. call addlib("rxcmanager.library",0,-30) then exit
  10.  
  11. if ~open("STDERR","CONSOLE:","W") then stderr="STDOUT"
  12.  
  13. prg=programname("NOEXT")
  14. if ~RMH_ReadArgs("KEY,USER/K") then do
  15.     call printfault(ioerr(),prg)
  16.     exit
  17. end
  18.  
  19. if parm.0.flag then k = "#?"parm.0.value"#?"
  20. else k = "#?"
  21.  
  22. if parm.1.flag then call CMUserData(parm.1.value)
  23.  
  24. patt.Name    = k
  25. patt.WWW     = k
  26. patt.Comment = k
  27. num = CMFind("WWW GROUPS","URL","PATT")
  28. if num=1 then call info "No url entry found"
  29. else call info "Found" num "url(s)"
  30.  
  31. say '<! Voyager - Bookmarks.mcc >'
  32. say '<!!! This is automatically generated... Do NOT edit !!!>'
  33. say '<HTML>'
  34. say '<TITLE>Voyager Bookmarks</TITLE>'
  35. say '<BODY>'
  36. say
  37. say '<H1 ALIGN=CENTER>Voyager Bookmarks</H1>'
  38. say '<HR>'
  39. say '<UL>'
  40.  
  41. g=""
  42. p=""
  43. ng=0
  44. do i=0 to num-1
  45.     if url.i.Group~=g then do
  46.         if g~="" then do
  47.             if url.i.Group~=g & url.i.parents="" then do
  48.                 call endG
  49.             end
  50.         end
  51.         say "<LI>"url.i.Group"<UL>"
  52.         ng=ng+1
  53.         g=url.i.Group
  54.     end
  55.     if ~url.i.EmptyGroup then
  56.         say "<LI><A HREF=" || '"'url.i.WWW'"' || ">" || url.i.Name || "</A>"
  57. end
  58.  
  59. call endG
  60.  
  61. say '</UL><BR>'
  62. say '<HR>'
  63. say '<a href="About:">Voyager 2.95 (15.3.98)</a>'
  64. say '</BODY>'
  65. say '</HTML>'
  66.  
  67. exit
  68.  
  69. info: procedure expose stderr prg
  70. parse arg msg
  71.     call writeln(stderr,prg":" msg)
  72.     return
  73.  
  74. endG: procedure expose ng
  75.     do j=0 to ng-1
  76.         say "</UL>"
  77.     end
  78.     ng=0
  79.     return
  80.